home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 September
/
Chip_2000-09_cd1.bin
/
sharewar
/
Slunec
/
app
/
16
/
COMM.SWG
/
0008_HUD Pascal Header.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-05-11
|
3KB
|
66 lines
Type MsgTxtType = String[255]; {MsgTxt.Bbs file}
Type MsgToIdxType = String[35]; {MsgToIdx.Bbs file}
Type MsgInfoType = Record {MsgInfo.Bbs file}
LowMsg: Word; {Low message number in file}
HighMsg: Word; {High message number in file}
Active: Word; {Number of active messages}
AreaActive: Array[1..200] of Word; {Number active in each area}
End;
Type MsgIdxType = Record {MsgIdx.Bbs file}
MsgNum: Word; {Message number}
Area: Byte; {Message area}
End;
Type MsgHdrType = Record {MsgHdr.Bbs file}
MsgNum: Word; {Message number}
ReplyTo: Word; {Message is reply to this number}
SeeAlso: Word; {Message has replies}
Extra: Word; {No longer used}
StartRec: Word; {starting seek offset in MsgTxt.Bbs}
NumRecs: Word; {number of MsgTxt.Bbs records}
DestNet: Integer; {NetMail Destination Net}
DestNode: Integer; {NetMail Destination Node}
OrigNet: Integer; {NetMail Originating Net}
OrigNode: Integer; {NetMail Originating Node}
DestZone: Byte; {NetMail Destination Zone}
OrigZone: Byte; {NetMail Originating Zone}
Cost: Word; {NetMail Cost}
MsgAttr: Byte; {Message attribute - see constants}
NetAttr: Byte; {Netmail attribute - see constants}
Area: Byte; {Message area}
Time: String[5]; {Message time in HH:MM}
Date: String[8]; {Message date in MM-DD-YY}
MsgTo: String[35]; {Message is intended for}
MsgFrom: String[35]; {Message was written by}
Subj: String[72]; {Message subject}
End;
Type LastReadType = Array[1..200] Of Word; {LASTREAD.BBS file}
Const {MsgHdr.MsgAttr}
maDeleted = 1; {Message is deleted}
maUnmovedNet = 2; {Unexported Netmail message}
maNetMail = 4; {Message is netmail message}
maPriv = 8; {Message is private}
maRcvd = 16; {Message is received}
maUnmovedEcho = 32; {Unexported Echomail message}
maLocal = 64; {"Locally" entered message}
Const {MsgHdr.NetAttr}
naKillSent = 1; {Delete after exporting}
naSent = 2; {Msg has been sent}
naFAttach = 4; {Msg has file attached}
naCrash = 8; {Msg is crash}
naReqRcpt = 16; {Msg requests receipt}
naReqAudit = 32; {Msg requests audit}
naRetRcpt = 64; {Msg is a return receipt}
naFileReq = 128; {Msg is a file request}